home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / oocs / frmsysin.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-05  |  2.4 KB  |  80 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSysInfo 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "System info from user at: IPAddrees"
  5.    ClientHeight    =   3540
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   4695
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3540
  13.    ScaleWidth      =   4695
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.TextBox Text1 
  17.       Height          =   2775
  18.       Left            =   120
  19.       TabIndex        =   1
  20.       Text            =   "Text1"
  21.       Top             =   0
  22.       Width           =   4455
  23.    End
  24.    Begin VB.CommandButton cmdOK 
  25.       Caption         =   "OK"
  26.       Height          =   315
  27.       Left            =   3360
  28.       TabIndex        =   0
  29.       Top             =   3120
  30.       Width           =   975
  31.    End
  32.    Begin VB.Line Line1 
  33.       X1              =   0
  34.       X2              =   4560
  35.       Y1              =   2880
  36.       Y2              =   2880
  37.    End
  38. Attribute VB_Name = "frmSysInfo"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. Option Explicit
  44. Dim Captions(1 To 9) As String
  45. Dim MemData(1 To 10) As String
  46. Dim SysDirs(1 To 3) As String
  47. ' --- Form supports a display for the memory and system info
  48. Private Sub Form_Load()
  49.     DisplayInfo Client_.Packaged_SysInfo
  50. End Sub
  51. Private Sub DisplayInfo(sAddThese)
  52.       Dim lStartPos As Long, SubStr As String
  53.       
  54.       Dim xx As Integer
  55.       MsgBox sAddThese
  56.       With Client_
  57.          Captions(1) = .SystemDir
  58.          Captions(2) = .WindowsDirectory
  59.          Captions(3) = .MemLoad
  60.          Captions(4) = .TotalPhys
  61.          Captions(5) = .AvailPhys
  62.          Captions(6) = .TotalPFile
  63.          Captions(7) = .AvailPFile
  64.          Captions(8) = .TotalVir
  65.          Captions(9) = .AvailVir
  66.       End With
  67.       
  68.       CurrentY = 100
  69.       'The File Paths will be seperated by ";", so extract them
  70.       'one by one and add to the combo box of choice
  71.       lStartPos = InStr(1, sAddThese, ";")
  72.       While lStartPos > 0
  73.           xx = xx + 1
  74.           SubStr = Mid$(sAddThese, 1, lStartPos - 1)
  75.           sAddThese = Mid$(sAddThese, lStartPos + 1)
  76.           lStartPos = InStr(1, sAddThese, ";")
  77.           Captions(xx) = SubStr
  78.       Wend
  79. End Sub
  80.